Imports System.Xml
Imports System.Data.SqlClient
Public Class dRetencion
    Public Function Existe(ByVal IdRetencion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdRetencion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdRetencion", IdRetencion))
        End If
        Return (dConexion.Consultar("STORE_TblRetencionBUSCARFILTRADO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Descripcion As String, ByVal Importe As String, ByVal Numero As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        Return dConexion.Consultar("STORE_TblRetencionALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal IdRetencion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If IdRetencion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdRetencion", IdRetencion))
        End If
        Return dConexion.ABM("STORE_TblRetencionELIMINAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal IdRetencion As String, ByVal Descripcion As String, ByVal Importe As String, ByVal Numero As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If IdRetencion <> "" Then
            Parametros.Add(New SqlParameter("@pEIdRetencion", IdRetencion))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", Importe))
        End If
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        Return dConexion.Consultar("STORE_TblRetencionBUSCARFILTRADO", Parametros)
    End Function
End Class
